home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_A.d64 / demo nr.3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  158 lines
  1. 10 mm=2.395
  2. 11 :
  3. 12 :
  4. 20 poke53280,14:poke53281,14:print""
  5. 30 printchr$(8)chr$(14)"[147]               [197] r d e                  "
  6. 40 print"[196]ie [199]rundversion dieses [208]rogrammes"
  7. 50 print"stammt aus dem [194]uch '[211]piele mit "
  8. 60 print"[195]omputer [199]rafik' von [206]orbert [212]reitz er-"
  9. 70 print"schienen im [200]agemannverlag."
  10. 80 print"[193]ngepasst fuer [208]lot-[194]asic habe ich"
  11. 90 print"dieses [208]rogramm."
  12. 100 print"[193]endern [211]ie doch einmal die [214]ariable"
  13. 110 print"mm in der ersten [218]eile des [208]rogrammes"
  14. 120 print"dadurch koennen [211]ie die [199]rafik beliebig"
  15. 130 print"verkleiner. (z.[194]. mm=1)
  16. 160 [153]" weiter mit [(NULL)val(NULL)(NULL)(NULL)(NULL)]"
  17. 170 [239]:[161]a$:[240]a$[178][199](13)
  18. 180 [153]"load"
  19. 190 [133]"loadstr$rehung     0cmdcmdcmdcmd";dr
  20. 200 [133]"(NULL)eigung      50cmdcmdcmdcmd";w:wi[178]w[172][255][173]180
  21. 210 [153]"(NULL)(NULL): str$er (NULL)lotvorgang dauert ziemlich"
  22. 220 [153]"    lange."
  23. 230 [231]0,[171]200:[207]:[204] 3
  24. 240 [213] 479[173]2,0,100[172]mm,100[172]mm,0,360,10
  25. 250 [129]j[178]1[164]22:[135]n,l,b
  26. 260 [141] 510:x1[178]x:y1[178]y
  27. 270 [129]i[178]1[164]n:[135]l,b:[141]510:x2[178]x:y2[178]y
  28. 280 [139]z[179]0[167][139]za[179]0[167]300
  29. 290 [209] 479[173]2[170]100[172]x1[172]mm,100[172]y1[172]mm,479[173]2[170]100[172]x2[172]mm,100[172]y2[172]mm
  30. 300 x1[178]x2:y1[178]y2:[130]
  31. 310 [135]n:[129]nn[178]1[164]n
  32. 320 [135]l,b:[141]510
  33. 330 [130]
  34. 340 [130]:[204] 2
  35. 350 [129]bb[178][171]90[164]67.5[169]22.5
  36. 360 [129]ll[178]0[164]350[169]10
  37. 370 b[178]bb:l[178]ll:[141]510:x1[178]x:y1[178]y
  38. 380 b[178]bb:l[178]ll[170]10:[141]510:x2[178]x:y2[178]y
  39. 390 [139]z[179]0[167]410
  40. 400 [209]479[173]2[170]100[172]x1[172]mm,100[172]y1[172]mm,479[173]2[170]100[172]x2[172]mm,100[172]y2[172]mm
  41. 410 [130]:[130]
  42. 420 [129]ll[178]0[164]337.5[169]22.5
  43. 430 [129]bb[178][171]90[164]80[169]10
  44. 440 b[178]bb:l[178]ll:[141]510:x1[178]x:y1[178]y
  45. 450 b[178]bb[170]10:l[178]ll:[141]510:x2[178]x:y2[178]y
  46. 460 [139]z[179]0[167]480
  47. 470 [209]479[173]2[170]100[172]x1[172]mm,100[172]y1[172]mm,479[173]2[170]100[172]x2[172]mm,100[172]y2[172]mm
  48. 480 [130]:[130]
  49. 500 [128]
  50. 510 b[178]b[172][255][173]180
  51. 520 l[178]l[171]dr
  52. 530 [139]l[177]360[167]l[178]l[171]360:[137]530
  53. 540 [139]l[179]0[167]l[178]l[170]360:[137]540
  54. 550 l[178]l[172][255][173]180
  55. 560 x[178][191](l)[172][190](b)
  56. 570 v[178][190](l)[172][190](b)
  57. 580 t[178][191](b)
  58. 590 y[178]t[172][190](wi)[171]v[172][191](wi)
  59. 600 za[178]z:z[178]t[172][191](wi)[170]v[172][190](wi)
  60. 610 [142]
  61. 620 [131] 31:[143] suedamerika
  62. 630 [131]-70,12,-61,10,-56,6,-52,5,-50,0,-40,-4,-36,-6
  63. 640 [131]-35,-9,-39,-15,-41,-22,-48,-26,-49,-29
  64. 650 [131]-55,-35,-57,-35,-58,-39,-61,-39,-68,-47
  65. 660 [131]-66,-48,-70,-51,-63,-55,-70,-56,-75,-53
  66. 670 [131]-76,-49,-74,-37,-72,-30,-70,-18,-76,-14
  67. 680 [131]-81,-6,-80,0,-77,7,-75,11,-70,12
  68. 690 [131]4,-65,8,-45,-10,-65,-35,-75,-5
  69. 700 [131]37:[143] afrika
  70. 710 [131]-6,35,2,36,10,37,10,33,20,31,21,33,32,32
  71. 720 [131]36,20,44,11,51,12,50,8,47,3,39,-4,41,-14
  72. 730 [131]35,-19,35,-24,33,-26,31,-30,26,-34,19,-34
  73. 740 [131]17,-28,15,-23,12,-18,14,-11,13,-5,9,-1,10,4
  74. 750 [131]6,4,4,6,-2,5,-8,5,-12,8,-17,15,-16,21,-12,28
  75. 760 [131]-10,30,-9,32,-6,35,3,0,20,30,10,25,-15
  76. 770 [131]5:[143] madagaskar
  77. 780 [131]49,-12,51,-15,47,-25,43,-25,44,-15,49,-12,1,46,-18
  78. 790 [131]34: [143] antarktika
  79. 800 [131]-180,-89,-180,-85,-155,-86,-159,-77,-122,-72
  80. 810 [131]-100,-74,-100,-72,-75,-73,-70,-66,-55,-63
  81. 820 [131]-65,-68,-60,-73,-70,-80,-35,-80,-35,-77,-20,-72
  82. 830 [131]0,-70,20,-70,40,-69,53,-66,70,-67,70,-70
  83. 840 [131]80,-68,85,-66,100,-66,115,-65,120,-66,135,-65
  84. 850 [131]150,-68,166,-70,170,-72,162,-75,160,-82
  85. 860 [131]180,-85,180,-89,3,120,-70,40,-70,-100,-80
  86. 870 [131]20:[143] australien
  87. 880 [131]142,-10,148,-20,153,-25,153,-32,150,-38,140,-38
  88. 890 [131]134,-32,126,-32,119,-34,116,-33,115,-30,114,-25
  89. 900 [131]115,-22,121,-20,127,-14,130,-15,130,-11,136,-11
  90. 910 [131]135,-15,141,-18,142,-10,2,130,-25,140,-27
  91. 920 [131]5:[143] neuseeland
  92. 930 [131]173,-35,178,-38,170,-47,167,-46
  93. 940 [131]175,-37,173,-35,1,176.5,-38.5
  94. 950 [131]11:[143] neuguinea
  95. 960 [131]130,0,134,0,136,-2,138,-1,146,-5,150,-10,145,-8
  96. 970 [131]143,-10,138,-8,138,-4,132,-3,130,0,1,142,-5
  97. 980 [131]5:[143] borneo
  98. 990 [131]117,7,119,5,116,-4,110,-4,109,2,117,7,1,113,0
  99. 1000 [131]4:[143] sumatra
  100. 1010 [131]98,5,105,-3,104,-6,95,5,98,5,1,101,0
  101. 1020 [131]56:[143] nordamerika
  102. 1030 [131]-80,25,-81,25,-83,30,-95,30,-98,27,-98,22
  103. 1040 [131]-95,19,-90,21,-87,21,-89,15,-84,15,-84,10
  104. 1050 [131]-75,10,-85,10,-95,17,-105,20,-112,32,-117,32
  105. 1060 [131]-110,23,-117,34,-120,32,-125,40,-125,48
  106. 1070 [131]-130,54,-140,60,-150,60,-165,55,-158,58
  107. 1080 [131]-165,62,-160,64,-166,64,-166,66,-160,66
  108. 1090 [131]-166,68,-156,72,-135,69,-127,70,-110,68
  109. 1100 [131]-81,70,-81,66,-95,62,-92,57,-83,55,-83,52
  110. 1110 [131]-79,52,-79,55,-77,57,-78,63,-70,58,-65,60
  111. 1120 [131]-56,52,-65,50,-62,45,-75,42,-76,36
  112. 1130 [131]-81,32,-80,25,4,-150,65,-70,54,-110,40,-90,35
  113. 1140 [131]3:[143] neufundland
  114. 1150 [131]-53,47,-59,48,-56,52,-53,47,1,-57,49
  115. 1160 [131]2:[143] cuba
  116. 1170 [131]-85,22,-82,23,-75,21,1,-85,22
  117. 1180 [131]7:[143] baffin
  118. 1190 [131]-66,63,-77,65,-72,68,-89,70,-90,73,-79,73
  119. 1200 [131]-62,66,-66,63,1,-69,64
  120. 1210 [131]4:[143] victoria
  121. 1220 [131]-101,70,-115,70,-120,73,-105,74,-101,70,1,-110,72
  122. 1230 [131]4:[143] ellismere
  123. 1240 [131]-80,76,-90,76,-95,82,-70,83,-80,76,1,-85,77
  124. 1250 [131]10:[143] groenland
  125. 1260 [131]-45,60,-50,62,-55,70,-60,76,-60,76,-70,78,-40,85
  126. 1270 [131]-20,80,-22,70,-40,65,-45,60,1,-40,70
  127. 1280 [131]117:[143] eurasien
  128. 1290 [131]76,8,72,21,70,20,66,25,55,26,50,30,48,28
  129. 1300 [131]52,24,56,26,60,22,57,19,52,16,44,12,41,20
  130. 1310 [131]33,32,34,32,36,37,27,36,27,42,42,42,38,47
  131. 1320 [131]30,46,29,42,22,40,25,38,22,36,20,40,20,42
  132. 1330 [131]13,46,12,44,17,40,15,37,12,38,17,39,10,44
  133. 1340 [131]7,43,3,43,3,41,0,40,0,38,-2,37,-6,36,-7,37
  134. 1350 [131]-9,37,-9,43,-2,43,-2,46,-4,48,9,54,8,57
  135. 1360 [131]10,58,14,54,21,55,25,66,21,65,18,62,16,56
  136. 1370 [131]12,55,10,60,5,57,5,63,20,70,25,71,43,67
  137. 1380 [131]65,70,70,73,80,72,80,74,105,78,112,76,113,74
  138. 1390 [131]130,73,130,71,150,72,160,70,175,70,+170,66
  139. 1400 [131]180,65,180,63,170,60,162,60,162,56,157,52
  140. 1410 [131]156,58,160,60,157,62,155,59,141,59,136,55
  141. 1420 [131]141,54,140,47,134,43,128,39,129,35,126,35
  142. 1430 [131]125,40,118,39,121,31,120,26,116,23,109,21
  143. 1440 [131]105,19,109,16,109,11,105,10,100,14,100,8
  144. 1450 [131]104,2,100,4,98,8,97,17,94,16,94,20,92,22
  145. 1460 [131]88,22,80,16,80,10,76,8
  146. 1470 [131]5,20,50,45,25,80,25,110,30,100,70
  147. 1480 [131]4:[143] grossbritanien
  148. 1490 [131]-5,58,-3,58,1,52,-5,50,-5,58,1,-2,53
  149. 1500 [131]4:[143] irland
  150. 1510 [131]-7,55,-7,52,-10,52,-10,54,-5,55,1,-8,54
  151. 1520 [131]4:[143] island
  152. 1530 [131]-22,67,-15,67,-13,65,-20,64,-22,67,1,-18,66
  153. 1540 [131]6:[143] japan
  154. 1550 [131]141,45,145,44,140,35,130,31,130,34,139,38
  155. 1560 [131]141,45,1,139,37
  156. 1570 [131]3:[143] sri lanka
  157. 1580 [131]80,10,82,8,80,7,80,10,1,81,9
  158.